home *** CD-ROM | disk | FTP | other *** search
/ Aminet 21 / Aminet 21 (1997)(GTI - Schatztruhe)[!][Oct 1997].iso / Aminet / misc / math / mathan.lha / mathan / examples / donuts.mth < prev    next >
Encoding:
Text File  |  1997-07-27  |  214 b   |  11 lines
  1.  
  2. "    Donuts.        "
  3.  
  4. X(a,b,c)=Sinh(a)*Cos(c)/(Cosh(a)-Cos(b))
  5. Y(a,b,c)=Sinh(a)*Sin(c)/(Cosh(a)-Cos(b))
  6. Z(a,b,c)=Sin(b)/(Cosh(a)-Cos(b))
  7. Draw("{X(1,b,c),Y(1,b,c),Z(1,b,c),2}",{"b",-pi,pi,20},{"c",-pi,pi,20})
  8. Exit
  9.  
  10.  
  11.